home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / examples / baudfrm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.1 KB  |  88 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   BAUDFRM.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Baudfrm;
  13.  
  14. interface
  15.  
  16. uses SysUtils, WinTypes, WinProcs, Classes, Graphics, Forms, Controls,
  17.   Buttons, StdCtrls, AdMisc, AdModDB;
  18.  
  19. type
  20.   TBaudForm = class(TForm)
  21.     OKBtn: TBitBtn;
  22.     CancelBtn: TBitBtn;
  23.     HelpBtn: TBitBtn;
  24.     Label1: TLabel;
  25.     BPSEdit: TEdit;
  26.     LockDTECheck: TCheckBox;
  27.     GroupBox1: TGroupBox;
  28.  
  29.     procedure OKBtnClick(Sender: TObject);
  30.   public
  31.     EditData : PModemInfo;
  32.     constructor Create(AOwner : TComponent; var Data : TModemInfo);
  33.   end;
  34.  
  35. var
  36.   BaudForm: TBaudForm;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. constructor TBaudForm.Create(AOwner : TComponent; var Data : TModemInfo);
  43. begin
  44.   inherited Create(AOwner);
  45.  
  46.   EditData := @Data;
  47.  
  48.   {set initial edit values}
  49.   if (EditData^.DefBaud <> 0) then
  50.     BPSEdit.Text := IntToStr(EditData^.DefBaud);
  51.   LockDTECheck.Checked := EditData^.LockDTE;
  52. end;
  53.  
  54. procedure TBaudForm.OKBtnClick(Sender: TObject);
  55. var
  56.   E : Integer;
  57.   L : LongInt;
  58.  
  59. begin
  60.   {make sure that a baud rate was entered}
  61.   if (BPSEdit.Text = '') then begin
  62.     BPSEdit.SetFocus;
  63.     ModalResult := mrNone;
  64.     raise Exception.Create('Please enter a BPS rate');
  65.   end;
  66.  
  67.   {make sure that the baud rate entered was, in fact, a number}
  68.   Val(BPSEdit.Text, L, E);
  69.   if (E <> 0) then begin
  70.     BPSEdit.SetFocus;
  71.     ModalResult := mrNone;
  72.     raise Exception.Create('Invalid BPS rate');
  73.   end;
  74.  
  75.   {make sure that the baud rate entered was in range}
  76.   if (L < 300) or (L > 57600) then begin
  77.     BPSEdit.SetFocus;
  78.     ModalResult := mrNone;
  79.     raise Exception.Create('Valid values are between 300 and 57600');
  80.   end;
  81.  
  82.   EditData^.DefBaud := L;
  83.   EditData^.LockDTE := LockDTECheck.Checked;
  84.   ModalResult := mrOK;
  85. end;
  86.  
  87. end.
  88.